unit uAppConst;

interface

uses
  SysUtils, Forms, uCxtConst;
  
const
  CAppRegKey = 'SOFTWARE\WLGJ';
  CCustomerServiceTel = '4001110004';
  CExeName = 'wlgj.exe';
  CAutoUpdateUrl = 'http://Cxt.56888.net/wlgj';
  CWorkDirectory = 'wlgj';
  CCustomerServiceQQ = '1760862370';
  CFeedBackUrl = '';

function GetMainFormCaption: string;
function GetApplicationTitle: string;

implementation

function GetMainFormCaption: string;
begin
  Result := Application.Title;
end;

function GetApplicationTitle: string;
begin
  with meta do
    Result := Format('%s%d', [ProductName, MajorVersion]);
end;

end.
